ED Apple Assembly Line 


Volume 1 -- Issue 4 January, 1981 


There are, as of Christmas Eve, 179 of you subscribing to the 
Apple Assembly Line! Last month I wondered if circulation 
could double, from 85, but we did even better! Also, several 
stores have decided to carry the AAL for sale like a 
magazine. We are growing a lot faster than I predicted, and 
I like it! 


In This Issue... 


How to Move Memory .....e es. 
Computed GOSUB for Applesoft ... 
Putting COPY into S-C ASSEMBLER II 
EDIT Command for S-C ASSEMBLER II 


First "Disk of the Quarter" 


Every three months I collect onto one disk all the source 
programs published in AAL for the quarter. QD#l (for 
October, November, and December of 1980) is now available, 
for $15. You can save a lot of typing. 


If you would like to help promote the newsletter, here is a 
nice offer: you sign up four new subscribers, and send me 
their mailing addresses and money, and I will send you a 
"Disk of the Quarter" FREE and POSTPAID! 


Those Compatible Disassemblers 


Bob Zant and Bob Kovacs both report that their new two-pass 
disassemblers are selling well. Well enough to warrant 
advertising again! Have you bought a copy yet? 


TAB Locations in S-C ASSEMBLER II Version 4.0 
For some reason, people are always asking me where the tab 
Stops are kept, because they want to change them. The old 
version 3.2 manual gives the patch locations for the three 
tab stops, but they are different in version 4.0 You will 
find them at: 

column location 


lst tab 14 $140D:0B 
2nd tab 18 $1411:0F 
3rd tab 27 $1402:18 


Note that the value stored in memory is three less than the 
column number. 


How to Move Memory 
—S—VCVU_0_"_ 


One of the most common problems in assembly language programming 
is the problem of moving data from one place in memory to 
another. 


Moving Little Blocks: If you only need to move one or two bytes 
of data from one place to another in memory, it is easy. You 


might do it like this: 
LDA SOURCE 
STA DEST 
LDA SOURCE+1 
STA DEST+1 
Or, if the A-register was busy but X and Y were not, you might 
write: 
LDX SOURCE 
LDY SOURCE+1 
STX DEST 
STY DEST+1 
If you know ahead of time exactly how many bytes you want to 
move, and exactly where you want it copied from and to, you can 
write a very fast loop. For example, suppose I know that I want 
to copy 20 bytes from BUFFER] into BUFFER2, and that there is no 
overlap. Then I can write: 
LDX #19 
LOOP LDA BUFFER1 ,X 
STA BUFFER2,X 
DEX 
BPL LOOP 
The loop moves the last byte first, then the next-to-last, and so 
on until the first byte in BUFFER] is moved into BUFFER2. If it 
is important to move them in the opposite direction (first byte 
first, last byte last), you can change the loop this way: 
LDX #0 |. 
LOOP LDA BUFFER1,X 
STA BUFFER2 ,X 
INX 
CPX #20 
BCC LOOP 
Terminating the loop can be done in various ways. The two 
examples above do it with a count in the X-register. Another way 
is to use a data sentinel. For example, the last byte to be 
moved, and only the last byte, might contain the value $00, or 
SFF, or anything you choose. Then after moving a byte, you can 
check to see if the sentinel byte was just moved. If it was, you 
are finished moving. Here is an example using a sentinel of $00: 
LDX #-1 
LOOP INX 
LDA BUFFER] ,X 
STA BUFFER2,X 
BNE LOOP 
Pascal Language promoters often recommend the sentinel technique; 
however, in Assembly Language, you must be very careful if you 
plan to use it. The sentinel you choose today may become a valid 
data value tomorrow! 


Moving Bigger Blocks: All of the examples so far will only work 
if the total number of bytes to be moved is less than 256. What 
if you need to move a larger block? 


When I need to move a large block of data from one place to 
another, I frequently use the MOVE subroutine in the Apple 
Monitor ROM. It starts at SFE2C, and looks like this: 


FE2C- Bl 3C MOVE LDA (A1L),Y MOVE (Al TO A2) 


FE2E- 91 42 STA (A4L) ,Y¥ TO (A4) 
FE30- 20 B4 FC JSR NXTA4 

FE33- 90 F7 BCC MOVE 

FE35- 60 RTS 


The subroutine NXTA4 (at S$FCB4) increments A4L,A4H ($42,43), 
which is the destination address. Then it compares Al1L,AlH 
($3C,3D) to A2L,A2H ($3E,3F); the result of the comparison is 
left in the Carry Status Bit: Carry is set if Al is greater than 
or equal to A2. Finally, the subroutine increments A2L,A2H 
($3E,3F). 


To use the MOVE subroutine, you have to set the starting address 
of the block to be copied into $3C,3D; the last address of the 
block to be copied into $3E,3F; and the starting address of the 
destination into $42,43. You also need to be sure that the 
Y-register contains zero before you start. Here is an example: 


LDY #0 CLEAR Y-REGISTER 

LDA #BUFFER] START ADDRESS OF SOURCE 

STA $3C 

LDA /BUFFER1] 

STA $3D 

LDA #BUFFER1L.END END ADDRESS OF SOURCE 

STA S3E 

LDA /BUFFER].END 

STA $3F° 

LDA #BUFFER2 START ADDRESS OF DESTINATION 

STA $42 

LDA /BUFFER2 

STA $43 

JSR $FE2C 
Because it is there, the Monitor MOVE subroutine is handy. But 
it is not a general subroutine. If the source and destination 
blocks overlap, you may get funny results. For example, If I try 
to move the data between $1000 and SlOFF up one byte in memory, 
so that it runs from $1001 to $1100, the MOVE subroutine will not 
work. Instead, it will copy the contents of $1000 into every 
location from $1001 through $1100. 


The MOVE subroutine is also not very fast. Anyway, it is not as 
fast as it could be. Steve Wozniak evidently wrote with size in 
mind (to make it fit in ROM) rather than speed. 


The Applesoft ROMs contain several subroutines for moving data 


around in memory. Here is one used during execution to move the 
array table up to make room for a new Simple variable: 
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1000 * -—--——----—------—_---—-—— 
1010 * BLTU — FROM THE APPLESOFT ROM 
1628 ‘ $D393 THROUGH $D3D5 
1040 * ON ENTRY: 
1050 * Y,A AND HIGHDS CONTAIN DESTINATION END + 1 
1060 * TQWIR CONTAINS LOWEST ADDRESS OF SOURCE 
1970 * HIGHTR CONTAINS HIGHEST SOURCE ADDRESS + 1 
1090 * PAGE-ZERO VARIABLE NAMES FROM "THE APPLE ORCHARD" 
1100 * VOL. 1, NO. 1, PAGES 12-18. 
006 1110 STREND .EO $60,6E OP OF ARRAY STORAGE 
0094- 1120 HIGHDS :E0 $94,95 BLTU'S DESTINATION POINTER 
0096- 1130 HIGHTR ;E0 $96,97 BLTU'S SOURCE END POINTER 
009B- 1140 LOWTR .EQ $9B,9C__ BLTU'S SOURCE START POINTER 
D3E3- 1160 REASON .EQ $D3E3___ CHECK IF ENOUGH MEMORY 
0800- 20 E3 D3 1180 BLTU JSR REASON BE SURE (Y,A) < FRETOP 
0803- 85 6D 1190 STA STREND NEW TOP OF Y STORAGE 
0805- 84 6E _=1200 STY STREND+1 
0807- 38 1210 SEC COMPUTE # OF BYTES TO BE MOVED 
0808- AS 96 =: 1220 LDA HIGHTR 
O80A- E5 9B ~—- 1230 SBC LOWTR 
ogdc- 85 5E =: 1240 STA S5E SAVE PARTIAL PAGE AMOUNT 
O80E- A8 1250 TAY ALSO IN Y 
O80F- AS 97 ~=—«- 1260 LDA HIGHTR+1 
811- E5 9C—-«1270 SBC +] 
0813- AA 1280 TAX NUMBER OF WHOLE PAGES IN X 
0814- E8 1290 INX 
0815- 98. 1300 TVA # BYTES IN PARTIAL PAGE 
816- FO 23. =: 1310 BEQ 4 NO PARTIAL PAGE 
0818- AS 96 ~—- 1320 HIGHTR BACK UP HIGITR BY PARTIAL PAGE # 
O81A- 38 1330 SEC 
O81B- E5 5E ~—«:1340 SBC S5E 
081D- 85 96 1350 STA HIGHTR 
8iF- BO 03. ~=—s-_: 11360 BCS , 
0821- C6 97 1370 DEC HIGHTR+1] 
0823- 38 1380 SEC 
0824- A5 94. =: 1390 .1 LDA HIGIDS BACK UP HIGHDS BY PARTIAL PAGE # 
826- F5 5E _—s-: 1400 SBC S5E 
0828- 85 94. ~=—s-:« 1410 STA HIGHDS 
82A- BO 08 1420 BCS .3 
082c- C6 95 ~—«: 1430 DEC HIGHDS+1 
082F- 90 04. ~=«-:14440 BCC . . » ALWAYS 
830- Bl 96 1450 .2 LDA (AIGITR) iY 
0832- 91 94 ~=1460 STA (HIGHDS) ,Y 
0834- 88 1470 .3 DEY 
835- DD F9 ~=—«1480 BNE .2 LOOP TO END OF THIS 256 BYTES 
0837- Bl 96 1490 LDA (HIGHTR),Y MOVE ONE MORE BYTE 
0839-— 91 94 1500 STA (HIGHDS), 
083B- C6 97. =—s_s«1510 .4 DEC HIGHTR+ DOWN TO NEXT BLOCK OF 256 
083D- C6 95 1520 D GHDS+ 
O83F- CA 1530 DEX PAGE COUNT 
0840- DO F2 1540 BNE .3 
0842- 60 1550 RTS 


Since this code moves from the end of the block backwards, it 
will safely move a block up in memory. However, it would not be 
safe to use with an overlapping range down in memory; it will do 
the same thing as the Monitor MOVE subroutine. 


The Applesoft subroutine is faster than the Monitor subroutine, 
because the least significant half of the pointer is kept in the 
Y-register instead of in page-zero of memory. The INY 
instruction takes only two cycles, whereas an INC instructions 
takes five. The three cycles saved in moving each byte add up to 
nearly 25 milliseconds in moving 8K bytes. The extra overhead 

of setting up the pointers is more than paid for. 
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Additional time is saved in the termination test. Instead of 
testing after moving every byte with a LDA, CMP, LDA, SBC 
sequence, the number of full 256-byte blocks to be moved is put 
in the X-register; only a DEX instruction once out of every 256 
bytes is needed. This saves over 100 milliseconds in moving an 
8K block. By putting the incrementing and testing code in line, 
rather than in a subroutine like NXTA4, we save the JSR and RTS 
time. This amounts to another 100 milliseconds in moving an 8K 
block. 


tine: Can we write a subroutine which will 
move a block of data from one place to another regardless of 
Overlap and direction? Of course! All we have to do is test at 
the beginning for direction, and choose which method to use 
accordingly. 


Here is a fast subroutine which will move any block of memory 
anywhere you want. You call it by putting the starting address 
of the source block in A1L,AlH:; the end address of the source in 
A2L,A2H; and the start address of the destination in A4L,A4H. 
(This is the same way you set up the Monitor MOVE subroutine.) I 
wrote it to be used with the control-Y monitor command. 


1000 * 
1030 * BRUN THE PROGRAM TO SET UP AS CONTROL~Y 
pee . MONITOR ROUTINE 
1068 * WE LIKE MONITOR MOVE SUBROUTINE: 
1070 * ’ — SOURCE START ADDRESS 
1080 * A2L,A2H — SOURCE END ADDRESS 
1090 ; A4L,A4H — DESTINATION START ADDRESS 
0000- 1110 BLOCK.SIZE EQ $00,01 
003C- 1120 AlL -E 
003D- 1130 AlH EQ $3D 
003E- 1140 A2L . 3E 
003F- 1150 A2H EQ $3F 
0042- 1160 A4L ° 2 
043- 1170 A4H E 3 
03F8- 1180 CONTROL.Y .EQ $3F8 
1200 CONTROL » ¥ . SETUE 
0800- A9 1210 LDA #$4C JMP OPCODE 
0802- 8D F8 03 1330 STA CONTROL 
0805- A9 10 12 G 
0807- 8D F9 03 1240 STA yes 
O80A- AY 08 1250 ° 
080C- 8D FA 03 1260 STA CONTROL.Y+2 
O80F- 60 1270 
1280 *— -_——— 
1290 GENERAL .MOVE 
0810- 48 1300 PHA SAVE REGISTERS 
0811- 98 1310 TYA 
0812- 48 1320 PHA 
0813- 8A 1330 TXA 
0814- 48 1340 PHA. 
0815- E6 3E 1350 INC A2L BUMP END ADDRESS ONCE 
0817- DO 02 1360 BNE . 
0819- E6 3F 1370 TNC A2H 


‘081B- 38 1380 .1 COMPUTE SIZE OF BLOCK 
081C- A5 3E 1390 LDA A2L 
Q81E- E5 3C 1400 SBC AlL 
0820- 85 00 1410 STA BLOCK .SIZE 
22- AS 3F 1420 LDA A2H 
0824- E5 3D 1430 SBC AlH 
0 $ - 8 0 1420 ai BLOCK .SIZE+1 
0829- E8 1460 INX NOMBER OF BLOCKS TO MOVE 
Q82A- AS 3C 1470 LDA AlL DETERMINE DIRECTION 
082C- C5 42 1480 CMP A4L 
2E- 3D 1490 
0830- E5 43 1500 SBC A4H 
0832- 90 06 1510 BCC .2 Al < A4 
0834- 20 43 08 1520 JSR MOVE.DOWN 
0837- 4C 3D 08 1530 JMP .3 
O83A- 20 63 08 1540 .2 JSR MOVE.UP 
083D- 68 1550 .3 PLA RESTORE REGS 
O83E- AA 1560 TAX 
O83F- 68 1570 PLA 
0840- A8 1580 
0841- 68 1590 PLA 
0842- 60 1600 
1610 * 
1620 MOVE.DOWN 
0843- AO 00 1630 LDY #0 
0845- CA 1640 DEX ANY WHOLE BLOCKS LEFT? 
0846- FO OE 1650 BEQ .2 NO 
0848- Bl 3C 1660 .1 Ae} 7X MOVE 256 BYTES 
4p- 91 42 1670 STA (A4L) ,-Y 
084C- C8 1680 INY 
4D- F9° 1690 BNE .1 
084F- E6 3D 1700 INC AlH POINT AT NEXT BLOCK 
0851- E6 43 1710 INC A4H 
Br Oe, HAR BE yy NORE nue mocks 
0856- A6 00 1740 .2 LDX BLOCK.SIZE _ ANY EXTRA BYTES IN A SHORT BLOCK? 
0858- FO 08 1750 BEQ .4 NONE LEFT 
O85A- Bl 3C 1760 .3 LDA via rX 
O85C- 91 42 1770 STA (A4L) ,Y 
O85E- C8 1780 INY 
O85F- CA 1790 DEX 
0860- DO F8 1800 BNE .3 
0862- 60 1810 .4 RTS 
183 fovea 
0863- 18 1840 CLC COMPUTE DESTINATION END + 1 
are net eee 
0868- 85 48 1870 STA A4L 
86A- 4 1880 LDA A4H 
Q86C- 65 01 1890 ADC BLOCK .SIZE+1 
Q86E- 85 43 1900 STA A4H 
0870- AO 0 1910 LDY #0 
0872- FO OB 1320 ‘ BED 3 LE - « ALWAYS 
0874- Bl 3E 1940 .1 LDA (Aa 7X MOVE BYTES 255 THRU 1 IN BLOCK 
0876- 91 42 1950 STA (A4L) ,Y 
a nn oan 
087B- Bl 3E 1980 LDA (AgL} 7X MOVE LOWEST BYTE IN BLOCK 
O87D- 91 42 1990 STA (A4L) ,Y 
O87F- C6 3F 2000 .3 A2H 
0881- C6 43 2010 DEC A4H 
883- CA 2020 DEX ANY MORE BLOCKS? 
0884- DO F2 2030 BNE .2 
2040 *-—-MOVE SHORT BLOCK IF ANY—---— 
0886- A6 00 2050 LDX BLOCK .SIZE 
0888- FO 08 2060 BE ie) NONE LEFT 
O88A- 88 2070 .4 D 
88B- Bl 3E 2080 LDA (hal > 4 
O88D- 91 42 2090 STA (A4L) ,Y 
O88F- CA 2100 DEX 
0890- DO F8 2110 BNE .4 
0892- 60 2120 .5 RTS 


~6- 


Decision 


Decision Systems 

S P.O. Box 13006 
ystems Denton, TX 76203 

817 / 382-6353 


SOFTWARE FOR THE APPLE II” 


ISAM-DS is an integrated set of Applesoft routines that gives in- 
dexed file capabilities to your BASIC programs. Retrieve by key, 
partial key or sequentially. Space from deleted records is auto- 
matically reused. Capabilities and performance that match products 
costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for strucured BASIC. 

Use advanced logic constructs such as IF...ELSE..., CASE, SELECT, 
and many more. Develop programs for Integer or Applesoft. Enjoy 
the power of structured logic at a fraction of the cost of PASCAL. 
$35 Disk, Applesoft (48K, ROM or Language Card). 


DSA-DS is a dis-assembler for 6502 code. Now you can easily dis- 
assemble any machine language program for the Apple and use the 
dis-assembled code directly as input to your assembler. Dis- 
assembles instructions and data. Produces code compatible with 
the S-C Assembler (version 4.0). 

$25 Disk, Applesoft (32K, ROM or Language Card). 


FORM-DS is a complete system for the definition of input and 
output forms. FORM-DS supplies the automatic checking of numeric 
input for acceptable range of values, automatic formatting of 
numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format 
numeric output, selectively clear variables (Applesoft's CLEAR 
gets everything), improve error handling, and interface machine 
language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Apple- 
soft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an 
Applesoft program to speed its execution. Improvements of 5-20% 
are common. As a bonus, SPEED-DS includes machine language 
routines to speed string handling and reduce the need for garbage 
clean-up." Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Texas residents add 5% tax) 
(Add $4.00 for Foreign Mail) 


*Appie Il is a registered trademark of the Apple Computer Co. 


A Computed GOSUB for Applesoft 


How many times I have wished for one! I guess I am spoiled from 
FORTRAN and Apple Integer BASIC. The Computed. GOTO is also left 
out, but I saw that one written up in a recent newsletter. The 
author said he didn't know how to do the Computed GOSUB, so here 
it is! 


1909 #—--—------------------------------- 
1010 * &GOSUB <EXPRESSION> 
00BO- 1030 TKN.GOSUB .EQ S$BO 
DECO- 1828 AS.SYNCHR .EQ- SDECO 
Dad - +988 AS.MEMCHK .E D3D6 
B8- AS.TXTPTR .EO $B8,B9 
0059- 1080 AS.LINNUM .E6 $50,51 
DD67- 1090 AS.FRMNUM .EO SDD67 
D941- 1100 AS.GOTO] .EQ $D941 
D7D2- 1110 AS.NEWSTT .EO S$D7D2 
E752- 1120 AS.GETADR .EQ $E752 
1140 
1150 VARIABLE. ORO gaBe 
0300- A9 BO 1160 LDA #TKN.GOSUB CHECK IF &GOSUB 
0302- 20 CO DE 117 JSR AS.SYNCHR | 
0305- A9 03 1180 LDA #3 CHECK IF ROOM ON STACK 
O30A- AS BS > 1200 PDA ASLTXTETR+1 
030C- a8 1396 PHA STACK TXTPTR 
O30p- 48 1330 BHA SS+TXTPTR | 
0310- A5 51 LDA AS.LINNUM+1 
§343- AB 1328 PHA STACK CURRENT LINE NO. 
gite- Bg 5° 4458 BRR AS LINNUN 
0318- no BO 1280 LDA #TKN.GOSUB MARK STACK 
0319- 20 §7 DD 1300 JSR AS.FRMNUM EVALUATE FORMULA 
1C- E7 131 JSR AS.GETADR CONVERT TO INTEGER 
O31F- 20 41 D9 1320 JSR AS.GOTO] USE GOTO COD 
0322- 4C D2 D7 1330 JMP AS.NEWSTT 


Lines 1160 and 1170 check the token after the "&" to see if it is 
"GOSUB"; if not, you will get a big SYNTAX ERROR. Lines 1180 and 
1190 check the stack to see if there is room for another GOSUB 
entry; if not, you get an OUT OF MEMORY error. Lines 1200-1290 
push the data on the stack that will be needed to RETURN. Lines 
1300 and 1310 compute the value of whatever expression follows 
the &GOSUB, and turn it into an integer that looks just like a 
line number. Finally, lines 1320 and 1330 simulate a normal 
GOTO. That's all there is to it! ° 


Here is a sample Applesoft program using the new &GOSUB 
statement: 


10 POKE 1013,76: POKE 1014,0: POKE 1015,3 (set up &-vector) 


20 INPUT X (read a subroutine number 1-4) 
30 & GOSUB X*100 (GOSUB to 100, 200, 300, or 400) 
40 GOTO 20 


100 PRINT 100: RETURN (four silly subroutines) 
200 PRINT 200: RETURN 
300 PRINT 300: RETURN 
400 PRINT 400: RETURN 


Putting COPY in S-C ASSEMBLER I1.....ccccccccccccceeeee Lee Meador 


I just looked at the first AAL Disk of the Quarter. The first 
item of business was to incorporate the changes into my copy of 
the assembler. 


The lower-case mod and the .DA mod went just as described in AAL. 
However, when it came to the COPY stuff, I found that-I wasn't 
really happy to load it at $800 and hope it didn't get clobbered. 
Here's what I did.... 


I changed the origin of the COPY program to $25A0 (since I 
already have a special printer driver at $2500.259F). The COPY 
program runs from $25A0 through $266F, so I changed the symbol 
table origin by typing "$1011:27". This sets the bottom of the 
symbol table at $2700. I put a ".TF B.SC COPY MODS" line in, to 
write the object on a binary file. | 


After assembling, I BLOADed the file B.SC COPY MODS into memory. 
Then I could have plugged in the USR vector like Bob suggested, 
but I wanted a real "COPY" command. Therefore I searched around 
in the assembler until I found the command table. I put the 
letters "COP" and the program address over the top of the tape 
SAVE command entry, by typing "$2746:43 4F 50 9F 25". I felt the 
loss of the tape SAVE command was worth it, to get a real COPY 
command. 


Now the command "COPY 1000,1050,2500" will copy lines 1000 
through 1050 into the place right before line 2500. The USR 
command is still intact and I'm ready for some more changes! 


ANNOUNCING A WEW UTILITY 


DISASM 18 A 2-PASS DISASSEMBLER-WITH-LABELS FOR USE WITH THE S-C AsSemBLer (Ver 4.0) 
THIS MACHINE LANGUAGE PROGRAM QUICKLY DISASSEMBLES A USER SPECIFIED OBJECT CODE BLOCK 
AND GENERATES A SOURCE CODE TEXT FILE. LABELS ARE AUTOMATICALLY CREATED AND CATA- 
GORIZED AS EITHER Pace Zero, EXTERNAL OR INTERNAL. MANY OTHER FEATURES ARE INCLUDED 
SUCH AS: .E£Q0 DEFINITIONS, AUTO LINE NUMBERING/TABS, ADDRESS SORTING AND SOURCE SEG- 
MENTATION FOR EASIER READING, UNDEFINED OPCODES AND HIDDEN CODE ARE ALSO HANDELED. 
DISASM 1S USER ORIENTED WITH PROMPTING AND ERROR CHECKING. 


TEXT FILE 1S READ BY ASSEMBLER USING EXEC COMMAND. ADAPTABLE TO OTHER DISK-BASED 
ASSEMBLERS HAVING TEXT FILE CAPABILITY. 


Procram DISKETTE AND USER DOCUMENTATION: $25.00 POSTPAID 
Intropuctory Bonus: A USEFUL MACHINE LANGUAGE DEBUGGING TOOL IS ALSO INCLUDED AT NO CHG 


AVAILABLE FROM: RAK-WARE 
4] Raven Roab 
West Orance, NJ 07052 


MAKE CHECKS/MONEY ORDERS PAYABLE TO: R. A. Kovacs 


EDIT Command for S-C ASSEMBLER II..ccccccccccccccccee eMike Laumer 


At last! Owners of the S-C ASSEMBLER II Version 4.0 can now have 
the power of an EDIT command similar in function to the popular 
"Program Line Editor” (PLE) by Neil Konzen. (PLE only works with 
Integer BASIC and Applesoft, although some wizards have figured 
out how to interface it with the S-C Assembler.) The program 
presented here will patch itself into Version 4.0 to turn the 
*"USR" command into an EDIT command. 


Several weeks ago Bob Sander-Cederlof contacted me about some 
contract programming, to help out on various projects he had in 
mind. So I suggested lunch, and we. met to discuss some of his 
projects. I was amazed at the list (as long as my arm!) of the 
ideas for just one of his products, the S-C Assembler II. (If 
you liked version 3.2, as I did; if you are thrilled with version 
4.0, as I am; then version 5.0 will ....) So I picked out a 
couple that would be fairly straightforward and would let me pick 
up the internal structure of the assembler gradually. 


After signing a non-disclosure agreement, I obtained the source 
files and made a listing of the assembler. Lucky for me I have a 
brand new Epson MX-80 printer! I think it is the greatest! 


Thursday, I made the listing. Friday I looked at the listing. 
Friday night I began writing code for the EDIT command. Saturday 
from 9AM till 1AM I wrote more code, read it through, and rewrote 
it. Sunday’morning I typed it into my Apple and eliminated the 
assembly errors (typos). And by 11AM, with the exception of two 
trivial bugs, I had it working! I nearly fell out of my chair! 

A 377-line program worked on the first run! 


After you type in the program, assemble it, and BRUN it, the USR 
command will work as an edit command. If you type the command 
USR with no line number, it will do nothing. If you type USR and 
one line number, it will list the line on the bottom of the 
screen and set you up to edit it. If you type USR and two line 
numbers, separated by a comma, all the lines in the range will be 
set up to edit, one at a time. 


How to Use EDIT: Twelve editing functions are available, and you 
.May see fit to add some more. Each function is selected by 
typing a control character. If you type a normal character, it 
will write over the top of the characters already in the line. 
The control characters and their associated functions are: 


Control-B Move to beginning of line. 

Control-D Delete character beneath cursor. 

Control-E Move to end of line. 

Control-F Find a character; the character searched for is 
typed after the control-F; repeatedly typing the 
same character will keep looking for successive 
occurrences. 

Control-H Backspace (left arrow). 

Control-I Insert characters before current cursor 
position. | 

Control-M (Return) Stop editing the line, and submit it 
to the line input routine in the assembler. 
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Control-O Same aS control-I, except next character may be 
any control character. 

Control-Q Same aS control-M, but line beyond cursor is 
truncated. 

Control-T Skip to next tab stop. 

Control-U (Right arrow) Move cursor forward. 

Control-x Kill edit, does not submit line. 


How_ EDIT Works: When you BRUN the file B.EDIT (after assembly 
has written the object code there!), the code in lines 1360-1530 
is executed. This patches the USR command vector to jump to EDIT 
(line 1720), and makes some patches inside the assembler. The 
patches only work for version 4.0! Their purpose is to make the 
code which processes a source line into a subroutine, 


Lines 1540-1620 are part of the patch code for the source line 
processing subroutine. 


Lines 1720-2040 determines the number of line numbers typed, and 
searches for them in the source program. Then E.LIST is called 
for each line to be edited. 


Lines 2050-2360 list the source line on the screen and also stuff 
it into the line input buffer at $0200. All changes will be made 
in the buffer, not in the source program. 


Lines 2370-2530 read a key from the keyboard and search the 
command table. If the key is found in the table, then DOIT is 
called to execute the command. If the key is not found, I assume 
it is a type-over character. The command table search is 
actually performed by a rather neat subroutine inside the 
assembler, called SEARCH. 


Lines 2540-2690 process a type-over character, in which the key 
just typed replaces the character under the cursor. Then the 
modified line in the buffer is re-displayed on the screen. 


Lines 2700-2750 position the cursor at the beginning of line 19, 
where the source line will be listed. 


Lines 2760-2900 display the line from the buffer. Display always 
starts at line 19 on the screen. Control characters are shown in 
inverse video. 


Lines 2910-4090 process the various commands. Each processor is 
written as a subroutine. The RTS returns to line 2520; at this 
point the Carry Status is used to flag whether or not to 
re-display the source line from the buffer. 


Lines 4100-4260 read a character from the keyboard by calling on 
the monitor RDKEY subroutine. The internal line biffer index is 
also converted to cursor line and column position on the screen. 
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JMP GNL 


MY.NML LDY #0 
LOCAL VARIABLES FOR EDIT COMMAND 


PATCH ROUTINES FOR ASSEMBLER 


EW.NML JSR MY.NML 
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N 
HAR 


NO ARGUMENTS 
ARGUMENT 


1 
2 ARGUMENTS 
FIND END PTR 


LDX #AlL 
JSR SERNXT 
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3 JSR MON.BELL ERR IF CONTROL KEY 
.4 LDA WBUF+5,X SEE IF END OF LINE 


. TYPE OVER IF NOT 
STA WBUF+6,X SHIFT OVER END OF LINE 
HAR STUFF CHAR INTO BUFFER 


CPX #256-5-2 vest BUFFER SIZE 


BEQ .95 PE OVER LAST CHAR IN BUFFER 
IN INSTEAD OF BUFFER END 
25 JSR E-RISP DISPLAY LINE 
+ JMP E. GET NEXT EDIT COMMAND 
E.POSN LDA ais POSITION TO LINE 19, 
LDA #0 COLUMN 0 
STA C 


E.DISP STX EDPTR 
JSR FabQSN POSITION DISPLAY 


el INX 
LDA WBUF ,X GET BUFFER CHAR 
BEQ . END OF BUFFER 
CMP #SA0 CONTROL CHAR? 


O 
$S7F PRINT INVERSE ALPHA 
2 JSR MON.COUT PRINT CHAR 


° EXT CHAR 
23 JSR MON ROR BOP CLEAN ANY REMAINING SCREEN 


E.DEL LDA WBUF +5 , X IS THIS THEN END OF 


LDA WBUF+5S,X SHIFT TO LOWER MEMORY 
STA WBUF+4,X TO DELETE CHAR 


LDX EDPTR 
22 SEC RETURN WITH DISPLAY 
. RTS 
E.END LDA WBUF+5,X END OF BUFFER? 
BEO .1l YES 
IN NO 
BNE E.END TRY END AGAIN 
ol CLC RETURN NO DISPLAY 
RTS 
E.FIND LDA WBUF+5 ,X END OF BUFFER? 
ol STA FKEY YES SO ERR 
JSR MON.BELL RING BELL 
CLC RETURN NO DISPLAY 
.2 JSR E.INPUT GET 1 CHAR 
3 STA FKEY SAVE KEY TO LOCATE 


LDA WBUF+5,X TEST BUFFER 


BEQ .1 END OF BUFFER 

CMP FKEY , SEE IF KEY 

BNE .3 , GO FORWARD 

JSR E.INPUT TRY ANOTHER KEY 

CMP FKEY SAME ? 

BE 23 YES, SEARCH AGAIN 

PLA 

STX EDPTR NO, EXIT POINTING HERE 
JMP E.2 
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E.BKSP TXA AT BEGINNING? 
BEO .1 YES, STAY THERE 
DEX BACKUP 

ol CLC RETURN NO DISPLAY 

. RTS 

E.OVR JSR E.INPUT AR 

. JMP E.INS1 SKIP CONTROL CHECK 

E.INS JSR E.,INPUT READ CHAR 
CMP #SA0 CONTROL CHAR POPS USER OUT 
BCC E.INS2 OF INSERT 

E.INS] CPX #256-5-2 END OF BLOCK 
BE 1 YES STAY THERE 

el STX EDPTR 

.2 PHA CHAR TO INSERT 
LDA WBUF+4,X SAVE CHAR TO MOVE 
PLA GET CHAR TO INSERT 
STA WBUF+4,X PUT OVER SAVED CHAR 
TYA INSERT SAVED CHAR 
BNE .2 IF NOT BUFFER END 
STA WBUF+4,X STUFF END CODE 
STA WBUF+256-5-1 INSURE A END CODE 
LDX EDPTR 


JSR E.DISP DISPLAY LINE 

JMP E.INS GET NEXT INSERT CHAR 
E.INS2 PLA SEND CHAR TO 

P COMMAND SEARCH 


. LDX EDPTR 

JMP E.2 
E.RETQ LDA #0 CLEAR REST OF LINE 

STA WBUF+5 ,X 

JSR F DISP| DISPLAY LINE 
E,RET LDX #SFF SUBMIT LINE TO ASSEMBLER 
ol INX COMPUTE LINE SIZE 

LDA WBUF ,X 

BNE .1 

DEX 
”) STX SEl SAVE SIZE 

PLA 

PLA 
. JMP MY.NML SUBMIT THE LINE 
E.TAB CPX #20 < COL 20? 

LDA WBUF+5,X END OF BUFFER? 

BEO .1 YE 

IN MOVE FORWARD 

CPX "7 TAB MATCH? 

CPX #11 TAB MATCH? 

BNE E.TAB 
ol CLC RETURN WITHOUT: DISPLAY 
. RTS 
E.RIT LDA WBUF+5,X END OF BUFFER 

. BNE , NO 

STA WBUF+6,X 

LDA #520 PUT A BLANK 

STA WBUF+5,X TO EXTEND LINE 

CPX #256-5-2 

BEQO .2 
1 IN MOVE AHEAD 
.2 CLC RETURN NO DISPLAY 
RTS 
E.ABORT LDA #SDC OUTPUT BACKSLASH 

STA WBUF+T5 


LDA #0 

STA WBUFt6 

JSR E.DISP SHOW CANCEL 

JMP GNL GET NEXT COMMAND. 
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4100 *--------------------------------- 
OA2D- A9 13 4110 E.INPUT LDA #19 
OAsi- BROS eed POSITION TO CURSOR 
- I 
0A32- 18 4146 CLC 
0A33- 69 05 4150 ADC #5 
0A35- C9 28 4160 .1 CMP #40 THIS LINE? 
0A37- 50 07 4170 BCC .2 YES 
0OA39- 38 4180 SEC 
OA3A- EQ 28 4190 SBC #40 
OA3C- F6 25 4200 INC CV ON NEXT LINE 
OA3E- DO FS 4210 BNE .1 
OA40—- 85 24 4220 .2 STA Ci 
OA42- 20 22 FC 42 JSR MON.VTAB SET BASL 
OA45~ 20 0C FD 424 SSR MON. RDKEY INPUT A CHAR 
OA48- 8D 35 08 4250 STA CHAR 
OA4B- 60 4260 RTS 
4270 *----------------------------~---- 
4280 * COMMAND TABLE 
OA4C- 03 01 1300 EDTB .DA 83,81 [TEM SIZE, KEY SIZE 
OA4E- 82 4£ 09 4310 .DA #$82,E.BEG-] “B 
OA51- 84 52 09 4320 DA #$84,E.DEL-1 “D 
OAD4- 85 65 09 4330 .DA #385/E.END-1,  2E 
A57- 86 6F 09 4340 [DA #$86,E.FIND-1 “*F 
OADA- 88 9D 09 4350 DA #388,E.BKSP-1 2H 
OA5D- 89 A9 09 4360 [DA $#889,E.INS-1 “I 
OA6Q- BD E4 09 4370 DA 488D,E-RET-1 2M 
A63- SF A3 09 43 "DA #S8F/E.OVR-1 *0 
OAGG- 91 DC 09 4390 .DA $891,E-RETO-1 20 
OA69- 94 F4 09 4400 ‘SDA $#894,E.TAB- “ 
OA6C- 95 08 OA 4410  °DA #$95,E.RIT-1  *U 
OA6F- 98 1C OA 4420 DA #$98,E.ABORT-1 “X 
0A72- 00 4430 SDA # 


Lines 4270 through the end are the command table. The first line 
defines the entry size and key size for the SEARCH subroutine: 3 
bytes per entry, with a one byte key at the front of each entry. 
The remaining two bytes of each entry are the 
starting-address-minus-one of the command processor routine. A 
final $00 byte terminates the table. 


I have used the patch for Bob's assembler which allows 
a list of .DA items! Lines 4270-4420 require this patch to be 
installed. You can read about the patch in Assembly Li 
for December, 1980, on page 9. If you have not installed the 
patch, then lines 4270-4420 need to be re-written with each .DA 
item on a separate source line. 


Well, you better get typing on that Apple, I know this is one 
routine you can't wait to key in. I know I couldn't wait to 
Create it! Or, if you can wait, you can get the source on the 
next Disk of the Quarter from Bob. 
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